home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dwsock11 / time.dfm / time.txt
Text File  |  1996-09-15  |  4KB  |  184 lines
  1. object frmTime: TfrmTime
  2.   Left = 202
  3.   Top = 100
  4.   BorderStyle = bsDialog
  5.   Caption = 'Internet Time'
  6.   ClientHeight = 199
  7.   ClientWidth = 401
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = [fsBold]
  12.   PixelsPerInch = 96
  13.   OnCreate = FormCreate
  14.   TextHeight = 13
  15.   object TLabel
  16.     Left = 160
  17.     Top = 24
  18.     Width = 27
  19.     Height = 13
  20.     Caption = 'Host'
  21.   end
  22.   object sockTime: TClientSocket
  23.     Left = 368
  24.     Top = 128
  25.     Width = 24
  26.     Height = 24
  27.     Port = 0
  28.     Service = 'time'
  29.     OnInfo = sockTimeInfo
  30.     Host = 'sunic.sunet.se'
  31.     OnConnect = sockTimeConnect
  32.     OnDisconnect = sockTimeDisconnect
  33.     OnRead = sockTimeRead
  34.   end
  35.   object btnTime: TButton
  36.     Left = 32
  37.     Top = 136
  38.     Width = 81
  39.     Height = 25
  40.     Caption = '&Update'
  41.     Font.Color = clBlack
  42.     Font.Height = -11
  43.     Font.Name = 'MS Sans Serif'
  44.     Font.Style = [fsBold]
  45.     ParentFont = False
  46.     TabOrder = 1
  47.     OnClick = btnTimeClick
  48.   end
  49.   object hdrInfo: THeader
  50.     Left = 0
  51.     Top = 176
  52.     Width = 401
  53.     Height = 23
  54.     Align = alBottom
  55.     BorderStyle = bsNone
  56.     Font.Color = clWindowText
  57.     Font.Height = -11
  58.     Font.Name = 'MS Sans Serif'
  59.     Font.Style = []
  60.     ParentFont = False
  61.     Sections.Sections = (
  62.       #0'31'#0'Info'
  63.       #0'13'#0' ')
  64.     TabOrder = 3
  65.   end
  66.   object gbTime: TGroupBox
  67.     Left = 16
  68.     Top = 8
  69.     Width = 105
  70.     Height = 113
  71.     Caption = 'Time'
  72.     TabOrder = 4
  73.     object clock: TPaintBox
  74.       Left = 16
  75.       Top = 24
  76.       Width = 73
  77.       Height = 73
  78.       OnPaint = clockPaint
  79.     end
  80.   end
  81.   object gbOptions: TGroupBox
  82.     Left = 136
  83.     Top = 8
  84.     Width = 249
  85.     Height = 113
  86.     Caption = 'Options'
  87.     TabOrder = 5
  88.     object Label1: TLabel
  89.       Left = 16
  90.       Top = 24
  91.       Width = 27
  92.       Height = 13
  93.       Caption = 'Host'
  94.     end
  95.     object Label2: TLabel
  96.       Left = 104
  97.       Top = 72
  98.       Width = 43
  99.       Height = 13
  100.       Caption = 'GMT + '
  101.     end
  102.     object lblGMT: TLabel
  103.       Left = 152
  104.       Top = 72
  105.       Width = 6
  106.       Height = 13
  107.       Caption = '1'
  108.       Font.Color = clWindowText
  109.       Font.Height = -11
  110.       Font.Name = 'MS Sans Serif'
  111.       Font.Style = []
  112.       ParentFont = False
  113.     end
  114.     object chkDST: TCheckBox
  115.       Left = 16
  116.       Top = 72
  117.       Width = 49
  118.       Height = 17
  119.       Caption = 'DST'
  120.       TabOrder = 0
  121.     end
  122.     object spinGMT: TSpinButton
  123.       Left = 168
  124.       Top = 64
  125.       Width = 17
  126.       Height = 25
  127.       DownGlyph.Data = {
  128.         A6000000424DA600000000000000760000002800000009000000060000000100
  129.         0400000000003000000000000000000000000000000000000000000000000000
  130.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  131.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
  132.         0000333303333000000033300033300000003300000330000000300000003000
  133.         00003333333330000000}
  134.       TabOrder = 1
  135.       UpGlyph.Data = {
  136.         A6000000424DA600000000000000760000002800000009000000060000000100
  137.         0400000000003000000000000000000000000000000000000000000000000000
  138.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  139.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
  140.         0000300000003000000033000003300000003330003330000000333303333000
  141.         00003333333330000000}
  142.       OnDownClick = spinGMTDownClick
  143.       OnUpClick = spinGMTUpClick
  144.     end
  145.   end
  146.   object comboHost: TComboBox
  147.     Left = 192
  148.     Top = 32
  149.     Width = 177
  150.     Height = 20
  151.     Font.Color = clBlack
  152.     Font.Height = -11
  153.     Font.Name = 'MS Sans Serif'
  154.     Font.Style = []
  155.     ItemHeight = 13
  156.     Items.Strings = (
  157.       'sunic.sunet.se'
  158.       'supr.scm.liv.ac.uk'
  159.       'tycho.usno.navy.mil')
  160.     ParentFont = False
  161.     TabOrder = 2
  162.     Text = 'sunic.sunet.se'
  163.   end
  164.   object Panel1: TPanel
  165.     Left = 136
  166.     Top = 136
  167.     Width = 249
  168.     Height = 25
  169.     Caption = 'By Ulf S∩┐╜derberg'
  170.     Font.Color = clWindowText
  171.     Font.Height = -11
  172.     Font.Name = 'Arial'
  173.     Font.Style = []
  174.     ParentFont = False
  175.     TabOrder = 6
  176.   end
  177.   object Timer1: TTimer
  178.     Enabled = False
  179.     OnTimer = Timer1Timer
  180.     Left = 328
  181.     Top = 128
  182.   end
  183. end
  184.